#!/usr/bin/perl

use LWP::Simple; #Módulo para obtener datos de una URL
use XML::RSS::Parser; #Módulo para trabajar con RSS

my $url = 'http://www.ideal.es/granada/rss/feeds/granada.xml';
my $pagina = get($url) or die ("No se puede descargar la página $url");
my $p = XML::RSS::Parser->new; #Creamos un objeto XML::RSS::Parser
my $feed = $p->parse_string($pagina); #El objeto será la URL que hemos leído antes parseada
 
foreach my $i ( $feed->query('/channel/item') ) { #Navegamos por los items de cada channel
    my $title = $i->query('title'); #Buscamos e imprimimos el título
    print 'Titulo: '.$title->text_content, "\n";
    my $fecha = $i->query('pubDate'); #Buscamos e imprimimos la fecha
    print 'Publicada el: '.$fecha->text_content, "\n\n";
}


